home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (13th Edition) / The CD-ROM Directory 13.iso / install / inscript.spa < prev    next >
Text File  |  1993-11-19  |  17KB  |  710 lines
  1. ; CD Answer Installation Script - Generic                               jdk
  2. ; <<CDA>> Aug 18 1992;3.1
  3.  
  4. ; single/multiple disk version
  5. ;
  6. ;   To customize this install script:
  7. ;      1. Put the product name (1-8 characters) in a file called
  8. ;         'PRODNAME'. There should be no carriage return/line feed at
  9. ;         the end of the name- the file should contain just the characters
  10. ;         of the name.
  11. ;      2. Put the application name (CD Author 4 character project identifier)
  12. ;         in a file called 'APPLNAME'. Again, no other chars should be
  13. ;         the file. Multiple applications are formed by adding a space,
  14. ;         then another application identifier
  15. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  16. ;         There should not be more than 10 lines.
  17. ;
  18. ;    The first disk must contain the \INSTALL directory.
  19. ;    This contains the general system files for the install
  20. ;    process and may be repeated on disk #2, etc.
  21. ;    The application specific files are kept in a directory
  22. ;    named 'DISK1'. If additional disks are required, create
  23. ;    an (empty) file on the current disk named '\MORE' and
  24. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  25.  
  26. BREAK abort
  27.  
  28. ; install disk
  29. PARSE_PATH <$ProgDir>
  30. SET insdrive = <$Drive>
  31. SET ins = <insdrive>\INSTALL
  32. SET curdisk = 1
  33. GOSUB need_disk
  34.  
  35. ; here are some defaults:
  36.  
  37. ;TFPL 8-6-93
  38. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  39. ;CONFIG ColorSet = 55
  40. ;TFPL
  41. ;  default destination drive
  42. PARSE_PATH <$CurDir>
  43. SET def_dest = C:\
  44. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  45.  
  46. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  47. SET def_cdtype = High Sierra
  48. SET def_driver = FS_HSGEN
  49. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  50. SET def_cdtype = ISO
  51. SET def_driver = FS_ISGEN
  52. :ok_driver
  53.  
  54. ;  language
  55. SET def_lang = <$Language>
  56.  
  57. ; application name(s) (4 char ident(s) on CD-ROM)
  58. READFILE names = <ins>\APPLNAME.
  59.  
  60. ; product name (application name for batch file, subdirectory name)
  61. READFILE prod = <ins>\PRODNAME.
  62.  
  63. ; default dest drive and directory
  64. PARSE_PATH <def_dest><prod>.CD
  65. SET dstdrive = <$Drive>
  66. SET path = <$Dir>
  67. CD <dstdrive>\
  68.  
  69. ; read and display Application Installation Screen
  70. IF NOT EXISTS <insdrive>\DISK1\PRODSCRN.<def_lang> GOTO no_banner
  71. READFILE screen = <insdrive>\DISK1\PRODSCRN.<def_lang>
  72. GOTO show_banner
  73. :no_banner
  74. SET screen =
  75. ----        Instalación de CD Answer para:\n\n
  76. ----               <prod>\n\n
  77. ----        Aplicación(es): <names>
  78. :show_banner
  79. CLEAR
  80. TEXT <screen>
  81. SET screen =
  82. WAIT
  83.  
  84. GOTO okdir
  85. :getdir
  86. CLEAR
  87. TEXT \nError -\n\n
  88. ----  El path "<dstdrive><path>" no es legal!\n
  89. ----Para instalar el programma, debe existir tanto una disquetera como un
  90. ---- subdirectorio válido.
  91. WAIT
  92. :okdir
  93. CLEAR
  94. TEXT La software de recuperación de datos debe ser instalada en su disco
  95. ---- duro o en un disco flexible formateado.  Los valores standard son\n
  96. ----disquetera <dstdrive> (normalmente el disco duro), y un subdirectorio\n
  97. ----llamado <path>.  Para usar estos valores, presione dos veces la\n
  98. ----tecla ┘ (Intro).  Para cambiarlos, escriba el nombre de la disquetera\n
  99. ----o del subdirectorio después del aviso correspondiente.  Entonces\n
  100. ----presione ┘ (Intro).
  101. INPUT 6,8,5 dstdrive = Instalar en la disquetera ?
  102. INPUT 6,10,40 path   = Instalar en el directorio ?
  103. SET dest = <dstdrive><path>
  104. SET confile = <ins>\_DW_.CFG
  105.  
  106. IF "<dstdrive>"=="" GOTO getdir
  107. IF "<path>"=="\" GOTO getdir
  108. IF "<path>"=="" GOTO getdir
  109. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  110.  
  111. CD <dstdrive>\
  112.  
  113. IF NOT DIREXISTS <dest> GOTO nopath
  114. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  115. CLEAR
  116. TEXT El directorio "<dest>" ya existe.
  117. NEWMENU 1, 0, 68
  118. ;TFPL -8-6-93
  119. MENU Instalar el software y sólo el interfaz español
  120. MENU Instalar el software y los interfaces de todos los idiomas
  121. ;TFPL
  122. MENU Borrar la versión antigua; no instalar la software nueva
  123. MENU Cambiar la configuración; no copiar software
  124. MENU Interrumpir la instalación sin hacer ningún cambio
  125. ENDCHOICES
  126.  
  127. ;TFPL -8-6-93
  128. CHOICE 1
  129. CLEAR
  130. TEXT Effacement du contenu antérieur de <dest>...
  131. FOREACH name = <names>
  132.  DEL <dest>\<name>*.*
  133. NEXT
  134. DEL <dest>\FS_*.DRV
  135. DEL <dest>\SC_*.DRV
  136. DEL <dest>\PR_*.DRV
  137. DEL <dest>\GR_*.DRV
  138. DEL <dest>\_DW_*.*
  139. DEL <dest>\ADL_MSGS.*
  140. DEL <dest>\DW.EXE
  141. DEL <dest>\UPDATE.EXE
  142. SET ch = 2
  143. GOTO okpath
  144.  
  145. ;TFPL
  146.  
  147. CHOICE 2
  148. CLEAR
  149. TEXT Borrando el contenido anterior de <dest>...
  150. FOREACH name = <names>
  151.  DEL <dest>\<name>*.*
  152. NEXT
  153. DEL <dest>\FS_*.DRV
  154. DEL <dest>\SC_*.DRV
  155. DEL <dest>\PR_*.DRV
  156. DEL <dest>\GR_*.DRV
  157. DEL <dest>\_DW_*.*
  158. DEL <dest>\DW.EXE
  159. DEL <dest>\ADL_MSGS.*
  160. DEL <dest>\UPDATE.EXE
  161. SET ch = 3
  162. GOTO okpath
  163.  
  164. CHOICE 3
  165. CLEAR
  166. TEXT Cancelando <dest> directorio...
  167. FOREACH name = <names>
  168.  DEL <dest>\<name>*.*
  169. NEXT
  170. DEL <dest>\FS_*.DRV
  171. DEL <dest>\SC_*.DRV
  172. DEL <dest>\PR_*.DRV
  173. DEL <dest>\GR_*.DRV
  174. DEL <dest>\_DW_*.*
  175. DEL <dest>\ADL_MSGS.*
  176. DEL <dest>\DW.EXE
  177. DEL <dest>\UPDATE.EXE
  178. IF NOT EXISTS <dest>\*.* GOTO remdest
  179. TEXT <dest> directorio contiene archivos desconocidos; directorio no ha sido cancelado!!
  180. WAIT
  181. GOTO norem
  182. :remdest
  183. RD <dest>
  184. :norem
  185. DEL <dstdrive>\<prod>.BAT
  186. GOTO end2
  187.  
  188. CHOICE 4
  189. SET alter = Y
  190. SET confile = <dest>\_DW_.CFG
  191. GOTO okpath
  192.  
  193. CHOICE 5
  194. GOTO end2
  195. ENDCHOICES
  196.  
  197. :nopath
  198. MD <dest>
  199. IF NOT DIREXISTS <dest> GOTO getdir
  200.  
  201. ;TFPL -8-6-93
  202. TEXT New Installation
  203. NEWMENU 1, 3, 64
  204. MENU Instalar el software y sólo el interfaz español
  205. MENU Instalar el software y los interfaces de todos los idiomas
  206. ENDCHOICES
  207.  
  208. CHOICE1
  209. SET ch = 2
  210. GOTO okpath
  211.  
  212. CHOICE2
  213. SET ch = 3
  214. GOTO okpath
  215. ENDCHOICES
  216.  
  217. :okpath
  218.  
  219. ;----------------------------------------------------------------------------
  220.  
  221. IF NOT EXISTS <confile> GOTO no_config
  222. DISP 5,14 Leyendo la configuración...
  223. READCONFIG <confile>
  224. :no_config
  225.  
  226. ;----------------------------------------------------------------------------
  227.  
  228. HSCOUNT hs
  229. IF NOT <hs>==0 GOTO have_hs
  230.  
  231. CLEAR
  232. TEXT  Problema - No hay ningúna disquetera CD-ROM instalada.\n\n
  233. ----Se ruega usar el disco de instalación proporcionado por el fabricante de
  234. ---- su disquetera CD-ROM para instalar la software del device driver.  Luego
  235. ---- repita este programa de instalación.\n\n
  236. ----Note: El programa de instalación de la disquetera CD-ROM copiará algunos
  237. ---- archivos a su disco de sistema y modificará los archivos CONFIG.SYS y
  238. ---- AUTOEXEC.BAT\n
  239. ----Si Ud. no tiene otros programas que usan el programa MSCDEX, se recomienda
  240. ---- eliminar la línea que llama a este programa de su archivo AUTOEXEC.BAT
  241. ---- porque esta software no lo requiere.\n\n
  242. ----Después de instalar los drivers CD-ROM se deberá reinicializar el sistema.
  243.  
  244. WAIT
  245. ABORT
  246.  
  247. :have_hs
  248. ;TFPL 19-11-93
  249. GOTO get_hs_letter
  250.  
  251. SET msg =
  252. IF <hs>==1 GOTO instOne
  253.  
  254. TEXT Una selección de <def_cdtype> drivers CD-ROM drivers están disponibles:\n\n
  255. ----Seleccione el device driver CD-ROM <def_cdtype> de esta lista de device
  256. ---- drivers disponibles usando las teclas  y .  Luego\n
  257. ----presione ┘ (Intro).  Presione Esc para interrumpir la installación.
  258. GOTO instMore
  259.  
  260. :instOne
  261. SET msg = Un driver CD-ROM <def_cdtype> ha sido instalado (vea CONFIG.SYS):\n\n
  262.  
  263. :instMore
  264. HSDRIVER hsname = 25, 8
  265. CONFIG Driver = "<def_driver>=<hsname>"
  266. CLEAR
  267. TEXT <msg>El driver CD-ROM <def_cdtype> seleccionado tiene el nombre "<hsname>".
  268. ----  Si esto no es correcto, presione Esc para interrumpir la instalación y
  269. ---- revise su archivo CONFIG.SYS\n\n
  270. ----Esta software NO requiere el programa MSCDEX.EXE (Microsoft CD-ROM
  271. ---- Extensions).  Si ningún otro programa lo requiere entonces Ud. puede
  272. ---- eliminar este programa de su archivo \AUTOEXEC.BAT (donde puede haber
  273. ---- sido instalado por el programa de instalación).
  274.  
  275. WAIT
  276.  
  277. CLEAR
  278. TEXT Copiando Interface CD-ROM <def_cdtype>...
  279. SET driver_name = <def_driver>.DRV
  280. GOSUB copy_driver
  281.  
  282. ;TFPL 19-11-93
  283. :get_hs_letter
  284. CLEAR
  285. :tfpl_drive
  286. GOTO tfp1
  287. :drive_error
  288. TEXT Error: The database is not available on the specified drive...\n\n
  289. :tfp1
  290. TEXT \n\n
  291. ----Introd